[]
p      19425-74

[]
1=
2=
3=
4=


[]
Icon=_8239-89.gif

[]
Icon=_8239-89.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8239-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_19425-74.dwg") "_19425-74" $Scale$ "" "$$") 
)

[-LISP]
(defun $main$ ( /  h b t1 s p1 p1a p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 ee)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))
  ;;;(if (< $t$ 0.7) (setq t1 (* 0.7 $Scale$ 10)))
 
  (initget 1)
  (setq p1 (getpoint "\n : "))
  (setq p1a (rc_vc++ p1 0 h))
  (setq p2 (rc_vc++ p1 (/ b -2) 0))
  (setq p17 (rc_vc++ p1 (/ b 2) 0))
  (setq p9 (rc_vc++ p2 0 h))
  (setq p10 (rc_vc++ p17 0 h))
  (setvar "OSMODE" 0)
  (command "_.pline" p1
   "_w" 0 0 p2
  (setq p3 (rc_vc++ p2 t1 t1))
  (setq p4 (rc_vc++ p1 (- (/ s -2) t1) t1))
  (setq p5 (rc_vc++ p1 (/ s -2) (+ t1 t1)))
  (setq p6 (rc_vc++ p1a (/ s -2) (- 0 t1 t1)))
  (setq p7 (rc_vc++ p1a (- (/ s -2) t1) (* -1 t1)))
  (setq p8 (rc_vc++ p9 t1 (* -1 t1)))
  p9
  p10
  (setq p11 (rc_vc++ p10 (* -1 t1) (* -1 t1)))
  (setq p12 (rc_vc++ p1a (+ (/ s 2) t1) (* -1 t1)))
  (setq p13 (rc_vc++ p1a (/ s 2) (* -1 (+ t1 t1))))
  (setq p14 (rc_vc++ p1 (/ s 2) (+ t1 t1)))
  (setq p15 (rc_vc++ p1 (+ (/ s 2) t1) t1))
  (setq p16 (rc_vc++ p17 (* -1 t1) t1))
  p17
  "_c")
  (setq ee (entlast))
  (princ "\n : ")
  (command "_.rotate" ee "" p1 pause)
  (end_vc++)
  (princ)
)


[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq tt (* $t$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ h 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 h))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar p1 (+ pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p1 (polar ptr1 angp90 (/ h 2)))
  (setq p (polar p1 (- pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (/ s 2)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (- pangle (/ pi 2)) (/ s 2)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	h,	b,	s,	t,	r1,	r2,	A,2	P,/	Iy,4		Wy,3		iy,	Sy,3		Iz,4		Wz,3	iz,
14	14.000	8.000	0.550	0.910	0.750	0.380	21.500	 16.90	712.000 	102.000		5.750	58.400		64.800		16.200	1.740
18	18.000	9.000	0.700	1.200	0.900	0.350	32.900	25.80	1760.000	196.000		7.320	113.000		130.000		28.900	1.990
20	20.000	10.000	0.700	1.140	0.900	0.450	35.600	27.90	2370.000	237.000		8.160	136.000		159.000		31.800	2.110
20	20.000	10.200	0.900	1.140	0.900	0.450	39.600	31.10	2500.000	250.000		7.950	146.000		170.000		33.900	2.070
22	22.000	11.000	0.750	1.230	0.950	0.480	42.100	33.10	3400.000	310.000		9.000	178.000		228.000		41.500	2.320
24	24.000	11.000	0.820	1.400	1.050	0.400	48.700	38.30	4640.000	387.000		9.750	223.000		276.000		50.200	2.380
27	27.000	12.200	0.850	1.370	1.050	0.530	51.500	42.80	6550.000	485.000		11.000	279.000		346.000		56.700	2.520
27	27.000	12.400	1.050	1.370	1.050	0.530	59.900	47.00	6870.000	507.000		10.700	297.000		366.000		59.000	2.470
30	30.000	13.000	0.900	1.500	1.200	0.600	64.000	50.20	9500.000	633.000		12.200	364.000		480.000		73.900	2.740
36	36.000	13.000	0.950	1.600	1.400	0.600	73.800	57.90	15340.000	852.000		14.400	493.000		518.000		79.700	2.650
36	35.000	14.000	1.100	1.580	1.200	0.600	90.900	71.30	17360.000 	964.000		13.800	574.000		618.000		88.300	2.610
45	45.000	15.000	1.050	1.800	1.600	0.700	98.800	77.60	31900.000	1420.000	18.000	821.000		892.000		119.000	3.000
